home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / Urltext.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  2.8 KB  |  94 lines
  1. /* Urltext is magic! */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call Init
  7. call CreateApp
  8. call HandleApp
  9.  
  10. /* never reached */
  11. /***********************************************************************/
  12. Init: procedure expose global.
  13.     l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  14.     if AddLibrary("rexxsupport.library","rxmui.library")~=0 then exit
  15.     call RxMUIOpt("debugmode showerr")
  16.     return
  17. /***********************************************************************/
  18. HandleApp: procedure expose global.
  19.     ctrl_c=2**12
  20.     do forever
  21.         call NewHandle("app","h",ctrl_c)
  22.         if and(h.signals,ctrl_c)>0 then exit
  23.         select
  24.             when h.event="QUIT" then exit
  25.             otherwise interpret h.event
  26.         end
  27.     end
  28.     /* never reached */
  29. /***********************************************************************/
  30. CreateApp: procedure expose global.
  31.  
  32.     app.Title="UrltextExample"
  33.     app.Version="$VER: UrltextExample 1.1 (25.1.2002)"
  34.     app.Copyright="©2002, alfie"
  35.     app.Author="alfie"
  36.     app.Description="Urltext example"
  37.     app.Base="RXMUIEXAMPLE"
  38.     app.SubWindow="win"
  39.      win.ID="MAIN"
  40.      win.Title="Urltext"
  41.      win.Contents="mgroup"
  42.  
  43.       fg.frame="group"
  44.       fg.background="groupback"
  45.       fg.frametitle="Urltext examples"
  46.        g.class="group"
  47.        g.columns=5
  48.         g.0=hspace()
  49.         g.1="u0"
  50.          u0.class="urltext"
  51.          u0.Font="big"
  52.          u0.url="alfie.monrif.net"
  53.          u0.text="Alfie's home page"
  54.         g.2=hspace()
  55.         g.3="u1"
  56.          u1.class="urltext"
  57.          u1.url="alfie.monrif.net/rxmui/"
  58.          u1.text="RxMUI home page"
  59.         g.4=hspace()
  60.         g.5=hspace()
  61.         g.6="u2"
  62.          u2.class="urltext"
  63.          u2.url="http://www.egroups.com/group/rxmui"
  64.          u2.text="RxMUI mail list"
  65.         g.7=hspace()
  66.         g.8="u3"
  67.          u3.class="urltext"
  68.          u3.url="mailto:alforan@tin.it"
  69.          u3.text="Alfonso Ranieri"
  70.         g.9=hspace()
  71.       mgroup.0=MakeObj("fg","VCenter","g")
  72.  
  73.       mgroup.1=Text("info")
  74.  
  75.     if NewObj("application","app")>0 then exit
  76.  
  77.     call Notify("win","CloseRequest",1,"app","ReturnID","quit")
  78.     if xget("u0","active") then do
  79.         call Notify("u0","url","everytime","info","set","contents","triggervalue")
  80.         call Notify("u1","url","everytime","info","set","contents","triggervalue")
  81.         call Notify("u2","url","everytime","info","set","contents","triggervalue")
  82.         call Notify("u3","url","everytime","info","set","contents","triggervalue")
  83.     end
  84.     else call set("info","contents","OpenURL is not installed!")
  85.  
  86.     call set("win","open",1)
  87.  
  88.     return
  89. /***********************************************************************/
  90. halt:
  91. break_c:
  92.     exit
  93. /**************************************************************************/
  94.